home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / Date / Language / Somali.pm < prev    next >
Encoding:
Perl POD Document  |  2003-03-16  |  1.1 KB  |  63 lines
  1. ##
  2. ## Somali tables
  3. ##
  4.  
  5. package Date::Language::Somali;
  6.  
  7. use Date::Language ();
  8. use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
  9. @ISA = qw(Date::Language);
  10. $VERSION = "0.99";
  11.  
  12. @DoW = qw(Axad Isniin Salaaso Arbaco Khamiis Jimco Sabti);
  13. @MoY = (
  14. "Bisha Koobaad",
  15. "Bisha Labaad",
  16. "Bisha Saddexaad",
  17. "Bisha Afraad",
  18. "Bisha Shanaad",
  19. "Bisha Lixaad",
  20. "Bisha Todobaad",
  21. "Bisha Sideedaad",
  22. "Bisha Sagaalaad",
  23. "Bisha Tobnaad",
  24. "Bisha Kow iyo Tobnaad",
  25. "Bisha Laba iyo Tobnaad"
  26. );
  27. @DoWs = map { substr($_,0,3) } @DoW;
  28. @MoYs = (
  29. "Kob",
  30. "Lab",
  31. "Sad",
  32. "Afr",
  33. "Sha",
  34. "Lix",
  35. "Tod",
  36. "Sid",
  37. "Sag",
  38. "Tob",
  39. "KIT",
  40. "LIT"
  41. );
  42. @AMPM = qw(SN GN);
  43.  
  44. @Dsuf = (qw(th st nd rd th th th th th th)) x 3;
  45. @Dsuf[11,12,13] = qw(th th th);
  46. @Dsuf[30,31] = qw(th st);
  47.  
  48. @MoY{@MoY}  = (0 .. scalar(@MoY));
  49. @MoY{@MoYs} = (0 .. scalar(@MoYs));
  50. @DoW{@DoW}  = (0 .. scalar(@DoW));
  51. @DoW{@DoWs} = (0 .. scalar(@DoWs));
  52.  
  53. # Formatting routines
  54.  
  55. sub format_a { $DoWs[$_[0]->[6]] }
  56. sub format_A { $DoW[$_[0]->[6]] }
  57. sub format_b { $MoYs[$_[0]->[4]] }
  58. sub format_B { $MoY[$_[0]->[4]] }
  59. sub format_h { $MoYs[$_[0]->[4]] }
  60. sub format_p { $_[0]->[2] >= 12 ?  $AMPM[1] : $AMPM[0] }
  61.  
  62. 1;
  63.